perm filename OPEN.F4[P11,LCS] blob sn#414668 filedate 1979-01-30 generic text, type T, neo UTF8
	SUBROUTINE OPEN(N,NAM,A,J,K,L,M)
	IF(J.EQ.'RDO')GO TO 1

         CALL OFILE(N,NAM)
	RETURN
CXX	CALL OPEN(21,JFLNM,0,'RDO',,,'UNF')
1        CALL IFILE(N,NAM)
	END